ValueFolder='Full path to where this file is stored';
[VecValueTemp,VecValueTemp2]=xlsread([ValueFolder 'AnalyseSamplingNature.xlsx']);
VecValueTemp3=VecValueTemp(:,3)-VecValueTemp(:,2);
ValueTemp=find(isnan(VecValueTemp(:,5))==0);
VecValueTemp4=VecValueTemp(ValueTemp,5);
VecResults=[];
VecResults2=[];
for n1=min(VecValueTemp3):max(VecValueTemp3)
    ValueTemp=find(VecValueTemp3==n1);
    if size(ValueTemp,1)>=1
        VecValueTemp4Temp=1-(VecValueTemp4-n1)./VecValueTemp4;
        ValueTemp2=find(VecValueTemp4Temp>1);
        VecValueTemp4Temp(ValueTemp2,:)=ones(size(ValueTemp2,1),1);
        VecResults=[VecResults;n1 VecValueTemp4Temp'];
        VecResults2=[VecResults2;size(ValueTemp,1)];
    end
end
VecValueTemp5=VecValueTemp4/sum(VecValueTemp4);
VecValueTemp5=repmat(VecValueTemp5',size(VecResults,1),1);
VecResultsTemp=VecResults(:,2:end).*VecValueTemp5;
VecValueTemp=sum(VecResultsTemp,2);
% VecValueTemp=mean(VecResults(:,2:end),2);
ValueResults=VecResults2./VecValueTemp;
[ValueResults3,ValueResults4]=ttest2(VecValueTemp3,VecValueTemp4);
VecValueResults2=[mean(VecValueTemp3) sqrt(var(VecValueTemp3)) mean(VecValueTemp4) sqrt(var(VecValueTemp4)) ValueResults4];